Komputer for Alle 2001 #11/CD 11 (Black) - 2001.iso/Fruity/ROLLUPS.DXR/00103_GeneralRoutines1.ls

Text File | 1998-04-13 | 13.0 KB | 574 lines

on IsProj
  return 1
end

on SetHandCursor
  set fcur to the number of member 3 of castLib 2
  set lcur to the number of member 4 of castLib 2
  cursor([fcur, lcur])
end

on SetGrabCursor
  set fcur to the number of member 5 of castLib 2
  set lcur to the number of member 6 of castLib 2
  cursor([fcur, lcur])
end

on CRCursor
  set fcur to the number of member 11 of castLib 2
  set lcur to the number of member 12 of castLib 2
  cursor([fcur, lcur])
end

on CCRCursor
  set fcur to the number of member 13 of castLib 2
  set lcur to the number of member 14 of castLib 2
  cursor([fcur, lcur])
end

on setMacFlush
  if not isPC() then
    openXLib(the pathName & "XOBJS:JOHNNY.XOBJ")
  end if
end

on StopMacFlush
  if not isPC() then
    closeXLib(the pathName & "XOBJS:JOHNNY.XOBJ")
  end if
end

on setMember chan, memNum, cstLibNum
  global gBlank
  if memNum = -50 then
    set the member of sprite chan to member gBlank of castLib 2
  else
    set the member of sprite chan to member memNum of castLib cstLibNum
  end if
end

on isPC
  if the machineType = 256 then
    return 1
  else
    return 0
  end if
end

on setPuppets theList, state
  repeat with theChan in theList
    puppetSprite(theChan, state)
    set the stretch of sprite theChan to 0
  end repeat
end

on UpdateRolls
  global gButtList, gActiveCast
  set mCast to the mouseCast
  if getPos(gActiveCast, mCast) then
    mRollButt(getAt(gButtList, getPos(gActiveCast, mCast)))
  end if
  updateStage()
end

on soundPlay chan, filePath
  sound playFile chan, filePath
end

on puppetSnd chan, soundNum
  if (chan > 10) or stringp(chan) then
    if stringp(chan) then
      if chan = EMPTY then
        exit
      end if
    else
      if chan <= 0 then
        exit
      end if
    end if
    puppetSound(chan)
    exit
  end if
  if stringp(soundNum) then
    if soundNum = EMPTY then
      exit
    end if
  else
    if soundNum <= 0 then
      exit
    end if
  end if
  puppetSound(chan, soundNum)
end

on complexPuppetSnd chan, soundNum
  global gSndPurgeList
  if stringp(soundNum) then
    if soundNum = EMPTY then
      exit
    end if
  end if
  if soundNum <= 0 then
    exit
  end if
  if soundNum <> 0 then
    puppetSound(1, 0)
  end if
  if count(gSndPurgeList) then
    PurgeList(gSndPurgeList)
    set gSndPurgeList to []
  end if
  puppetSound(chan, soundNum)
  add(gSndPurgeList, soundNum)
end

on PuppetSndNU soundNum
  global gSndPurgeList
  if stringp(soundNum) then
    if soundNum = EMPTY then
      exit
    end if
  end if
  if soundNum <= 0 then
    exit
  end if
  puppetSound(1, 0)
  if count(gSndPurgeList) then
    PurgeList(gSndPurgeList)
    set gSndPurgeList to []
  end if
  puppetSound(the name of member soundNum)
  add(gSndPurgeList, soundNum)
end

on UStage theTime
  updateStage()
  repeat while the timer < theTime
  end repeat
end

on FindEvilCast evilCastNum
  repeat with i = 1 to 126
    go(i)
    updateStage()
    repeat with J = 1 to 48
      if the castNum of sprite J <> 0 then
        if the castLibNum of sprite J = evilCastNum then
          put "sprite " & J && "at frame " & i && "is evil"
        end if
      end if
    end repeat
  end repeat
end

on Shuffle startList
  set shuffleList to []
  set copyList to value(string(startList))
  set listSize to count(startList)
  repeat with z = 1 to listSize
    set index to random(count(copyList))
    add(shuffleList, getAt(copyList, index))
    deleteAt(copyList, index)
  end repeat
  return shuffleList
end

on setStretch theList, state
  repeat with theChan in theList
    set the stretch of sprite theChan to 0
  end repeat
end

on SwitchCast chan1, chan2
  set hold1 to the castNum of sprite chan1
  set the castNum of sprite chan1 to the memberNum of sprite chan2
  set the castNum of sprite chan2 to hold1
end

on SwitchSprite chan1, chan2
  set hold1 to the member of sprite chan1
  set holdloc1 to the loc of sprite chan1
  set the member of sprite chan1 to the member of sprite chan2
  set the loc of sprite chan1 to the loc of sprite chan2
  set the member of sprite chan2 to hold1
  set the loc of sprite chan2 to holdloc1
end

on wait sticks
  set theTime to the timer + sticks
  repeat while the timer < theTime
  end repeat
end

on waitClick sticks
  set theTime to the timer + sticks
  repeat while the timer < theTime
    if the mouseDown then
      exit repeat
    end if
  end repeat
end

on waitCursor
  cursor(200)
  cursor(4)
end

on resetCursor
  cursor(200)
  set fcur to the number of member 1 of castLib 2
  set lcur to the number of member 2 of castLib 2
  cursor([fcur, lcur])
end

on Dissolvetransition
  if not IsShockWave() then
    if the machineType <> 256 then
      puppetTransition(51, 2)
    else
      puppetTransition(24, 2, 12)
    end if
  end if
end

on sfo chan, fadeOutTime
  set startLevel to the volume of sound chan
  set theEndTime to the timer + fadeOutTime
  repeat while the timer <= theEndTime
    set theTimeLeft to theEndTime - the timer
    set thePercent to theTimeLeft / (fadeOutTime * 1.0)
    set the volume of sound chan to integer(startLevel * thePercent)
  end repeat
  set the volume of sound chan to 0
  sound stop chan
  if chan = 1 then
    puppetSound(0)
  end if
  set the volume of sound chan to startLevel
end

on sfd chan, fadeTime, endLevel
  set startLevel to the volume of sound chan
  set delta to startLevel - endLevel
  set theEndTime to the timer + fadeTime
  repeat while the timer <= theEndTime
    set theTimeLeft to theEndTime - the timer
    set thePercent to theTimeLeft / (fadeTime * 1.0)
    set the volume of sound chan to endLevel + integer(delta * thePercent)
  end repeat
  set the volume of sound chan to endLevel
end

on Dist PtA, PtB
  set vector to PtB - PtA
  set distance to sqrt(listSum(vector * vector))
  return distance
end

on listSum theList
  set sum to 0
  repeat with entry in theList
    if not (integerp(entry) or floatp(entry)) then
      set entry to 0
    end if
    set sum to sum + entry
  end repeat
  return sum
end

on Flush
  global gFlush, gIsPc
  if not gIsPc and not IsShockWave() then
    set gFlush to Johnny(mnew)
    gFlush(mFlush)
    gFlush(mdispose)
  else
    PCFlush()
  end if
end

on PCFlush
  global oldkeyD, oldMd, oldMu, flushActive
  if flushActive then
    exit
  end if
  set oldkeyD to the keyDownScript
  set oldMd to the mouseDownScript
  set oldMu to the mouseUpScript
  set the keyDownScript to "dontPassEvent"
  set the mouseDownScript to "dontPassEvent"
  set the mouseUpScript to "dontPassEvent"
  set the timeoutLength to 5
  set the timeoutScript to "ResetEvents"
  set flushActive to 1
end

on KillPCFlush
  global flushActive
  set the mouseDownScript to EMPTY
  set the mouseUpScript to EMPTY
  set the keyDownScript to EMPTY
  set the timeoutScript to EMPTY
  set flushActive to 0
end

on ResetEvents
  global oldkeyD, oldMd, oldMu, flushActive
  set the keyDownScript to oldkeyD
  if oldMd = "DontPassEvent" then
    set the mouseDownScript to EMPTY
  else
    set the mouseDownScript to oldMd
  end if
  if oldMu = "DontPassEvent" then
    set the mouseUpScript to EMPTY
  else
    set the mouseUpScript to oldMu
  end if
  set the timeoutScript to EMPTY
  set flushActive to 0
end

on AnimLinLoop chan, theSound, castList, waitTime, castLibNum, restore
  loadAnim(theSound, castList)
  PuppetSndNU(theSound)
  set fCst to the castNum of sprite chan
  repeat with theMemNum in castList
    set theTime to the timer + waitTime
    set the member of sprite chan to member theMemNum of castLib castLibNum
    UStage(theTime)
    if not soundBusy(1) then
      exit repeat
    end if
  end repeat
  repeat while soundBusy(1)
    repeat with theMemNum in castList
      set theTime to the timer + waitTime
      set the member of sprite chan to member theMemNum of castLib castLibNum
      UStage(theTime)
      if not soundBusy(1) then
        exit repeat
      end if
    end repeat
  end repeat
  sound stop 1
  if restore then
    set the castNum of sprite chan to fCst
    updateStage()
  end if
  unloadMember(theSound)
  PurgeList(castList)
end

on AnimLin chan, theSound, castList, waitTime, castLibNum
  loadAnim(theSound, castList)
  PuppetSndNU(theSound)
  repeat with theMemNum in castList
    set theTime to the timer + waitTime
    setMember(chan, theMemNum, castLibNum)
    UStage(theTime)
  end repeat
  unloadMember(theSound)
  PurgeList(castList)
end

on AnimRandLoop chan, theSound, castList, waitTime, castLibNum
  loadAnim(theSound, castList)
  puppetSnd(1, theSound)
  updateStage()
  repeat while soundBusy(1)
    set animList to Shuffle(castList)
    repeat with theMemNum in castList
      set theTime to the timer + Randomize(waitTime, 3)
      set the member of sprite chan to member theMemNum of castLib castLibNum
      UStage(theTime)
      if not soundBusy(1) then
        exit repeat
      end if
    end repeat
  end repeat
  sound stop 1
  unloadMember(theSound)
  PurgeList(castList)
end

on button downSnd, upSound, doScript
  set chan to the clickOn
  set the stretch of sprite chan to 0
  set UpCast to the castNum of sprite chan
  set downCast to UpCast + 1
  set the castNum of sprite chan to downCast
  puppetSnd(1, downSnd)
  updateStage()
  repeat while soundBusy(1)
  end repeat
  repeat while the mouseDown
    if rollOver(chan) then
      if the castNum of sprite chan = UpCast then
        set the castNum of sprite chan to downCast
        puppetSnd(1, downSnd)
      end if
    else
      if the castNum of sprite chan = downCast then
        set the castNum of sprite chan to UpCast
        puppetSnd(1, upSound)
      end if
    end if
    updateStage()
  end repeat
  repeat while soundBusy(1)
  end repeat
  if the castNum of sprite chan = downCast then
    set the castNum of sprite chan to UpCast
    puppetSnd(1, upSound)
    updateStage()
    repeat while soundBusy(1)
    end repeat
    do(doScript)
  end if
  Flush()
end

on Randomize center, range
  return center + random(range) - (range / 2)
end

on RandomizeLoc locPoint, range
  return locPoint + point(random(range) - (range / 2), random(range) - (range / 2))
end

on setFont fieldNum, ffont, ffontsize, ffontStyle
  set the textFont of member fieldNum to ffont
  set the textSize of member fieldNum to ffontsize
  set the textStyle of member fieldNum to ffontStyle
end

on stageConstrainH source, range
  if source > (0 + range) then
    if source < (640 - range) then
      return source
    else
      return 640 - range
    end if
  else
    return 0 + range
  end if
end

on stageConstrainV source, range
  if source > (0 + range) then
    if source < (480 - range) then
      return source
    else
      return 480 - range
    end if
  else
    return 0 + range
  end if
end

on stageConstrainHNS source, leftLimit, rightLimit
  if source > (0 + leftLimit) then
    if source < (640 - rightLimit) then
      return source
    else
      return 640 - rightLimit
    end if
  else
    return 0 + leftLimit
  end if
end

on stageConstrainVns source, topLimit, bottomLimit
  if source > (0 + topLimit) then
    if source < (480 - bottomLimit) then
      return source
    else
      return 480 - bottomLimit
    end if
  else
    return 0 + topLimit
  end if
end

on cacheSound sound
  if stringp(sound) then
    puppetSound(5, the number of member sound)
    sound stop 5
  else
    puppetSound(5, sound)
    sound stop 5
  end if
end

on setToAllCaps theText
  if not stringp(theText) then
    return -1
  end if
  set NumOfChars to the number of chars in theText
  set newString to EMPTY
  set problemflag to 0
  repeat with i = 1 to NumOfChars
    set num to charToNum(char i of theText)
    if (num > 64) and (num < 91) then
      put char i of theText after newString
      next repeat
    end if
    if (num > 96) and (num < 123) then
      put numToChar(num - 32) after newString
      next repeat
    end if
    if num = 32 then
      put numToChar(num) after newString
      next repeat
    end if
    put char i of theText after newString
    set problemflag to 1
  end repeat
  if problemflag then
    alert("The name has characters which are not letters.")
  end if
  return newString
end

on TestForLettersOnly theString
  set NumOfChars to the number of chars in theString
  repeat with i = 1 to NumOfChars
    set num to charToNum(char i of theString)
    if (num <> 32) and not (((num > 64) and (num < 91)) or ((num > 96) and (num < 123))) then
      return 0
    end if
  end repeat
  return 1
end

on CharTOBitMap fBitMap, theString
  if not TestForLettersOnly(theString) then
    return -1
  end if
  set NumOfChars to the number of chars in theString
  set theList to []
  set theString to setToAllCaps(theString)
  repeat with i = 1 to NumOfChars
    if charToNum(char i of theString) = 32 then
      add(theList, fBitMap - 1 + 27)
      next repeat
    end if
    add(theList, fBitMap - 1 + (charToNum(char i of theString) - 64))
  end repeat
  return theList
end

on ProcessText theText
  set ProcessedText to EMPTY
  set holdChar to EMPTY
  set lastCharNum to the number of chars in theText
  repeat with zCount = 1 to lastCharNum
    set holdChar to char zCount of theText
    if (holdChar <> ",") and (holdChar <> RETURN) then
      put holdChar after ProcessedText
    end if
  end repeat
  return ProcessedText
end